home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dump_s1r / colorsel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-19  |  6.0 KB  |  208 lines
  1. VERSION 5.00
  2. Begin VB.Form frmColorSelector 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   3255
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3975
  9.    FillColor       =   &H8000000F&
  10.    Icon            =   "ColorSel.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3255
  16.    ScaleWidth      =   3975
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.PictureBox P1 
  20.       Appearance      =   0  'Flat
  21.       AutoRedraw      =   -1  'True
  22.       BackColor       =   &H80000005&
  23.       BorderStyle     =   0  'None
  24.       ForeColor       =   &H80000008&
  25.       Height          =   2235
  26.       Left            =   0
  27.       ScaleHeight     =   2235
  28.       ScaleWidth      =   3705
  29.       TabIndex        =   0
  30.       Top             =   0
  31.       Width           =   3705
  32.       Begin VB.PictureBox Picture1 
  33.          Appearance      =   0  'Flat
  34.          BackColor       =   &H00C0C0C0&
  35.          ForeColor       =   &H80000008&
  36.          Height          =   240
  37.          Left            =   3450
  38.          ScaleHeight     =   210
  39.          ScaleWidth      =   210
  40.          TabIndex        =   1
  41.          Top             =   240
  42.          Width           =   240
  43.       End
  44.    End
  45. Attribute VB_Name = "frmColorSelector"
  46. Attribute VB_GlobalNameSpace = False
  47. Attribute VB_Creatable = False
  48. Attribute VB_PredeclaredId = True
  49. Attribute VB_Exposed = False
  50. Option Explicit
  51. Public Color As Long
  52. Private Colors(1 To 48) As Long
  53. Private Circ As Collection
  54. Private WithEvents cmdOK As ComboPack.Button
  55. Attribute cmdOK.VB_VarHelpID = -1
  56. Private WithEvents cmdCancel As ComboPack.Button
  57. Attribute cmdCancel.VB_VarHelpID = -1
  58. Private Sub cmdCancel_Click()
  59. End Sub
  60. Private Sub cmdOK_Click()
  61. Color = Picture1.BackColor
  62. End Sub
  63. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  64. cmdOK.MouseDown Button, X, Y
  65. cmdCancel.MouseDown Button, X, Y
  66. End Sub
  67. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  68. cmdCancel.MouseMove Button, X, Y
  69. cmdOK.MouseMove Button, X, Y
  70. End Sub
  71. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  72. cmdOK.MouseUp Button, X, Y
  73. cmdCancel.MouseUp Button, X, Y
  74. '\\//'
  75. End Sub
  76. Private Sub cmdOK_Press()
  77. cmdOK.HasFocus = True
  78. cmdCancel.HasFocus = False
  79. End Sub
  80. Private Sub cmdCancel_Press()
  81. cmdCancel.HasFocus = True
  82. cmdOK.HasFocus = False
  83. End Sub
  84. Private Sub Form_Load()
  85. Dim L1 As Long, L2 As Long
  86. SetColors
  87. Set cmdOK = New ComboPack.Button
  88. Set cmdOK.Parent = frmColorSelector
  89. cmdOK.Left = Width / 2 - 562.5
  90. cmdOK.Top = 2310
  91. cmdOK.Height = 405
  92. cmdOK.Width = 1125
  93. cmdOK.ForeColor = 0
  94. cmdOK.BackColor = -2147483633
  95. cmdOK.Name = "cmdOK"
  96. cmdOK.Caption = "OK"
  97. cmdOK.Redraw
  98. cmdOK.Enabled = True
  99. cmdOK.HasFocus = True
  100. Set cmdCancel = New ComboPack.Button
  101. Set cmdCancel.Parent = frmColorSelector
  102. cmdCancel.Left = Width / 2 - 562.5
  103. cmdCancel.Top = 2730
  104. cmdCancel.Height = 405
  105. cmdCancel.Width = 1125
  106. cmdCancel.ForeColor = 0
  107. cmdCancel.BackColor = -2147483633
  108. cmdCancel.Name = "cmdCancel"
  109. cmdCancel.Caption = "Cancel"
  110. cmdCancel.Redraw
  111. cmdCancel.Enabled = True
  112. Set Circ = New Collection
  113. Dim cCirc As clsCircle
  114. Dim Color As Byte
  115. For L1 = 1 To 9
  116. For L2 = 1 To 5
  117. Set cCirc = New clsCircle
  118. Draw3DCircle P1, 240 + (360 * L1) - 240, 240 + (360 * L2) - 240, 120, Colors(Color + 1), True, True
  119. cCirc.Color = Colors(Color + 1)
  120. cCirc.Left = 240 + (360 * L1) - 360
  121. cCirc.Top = 240 + (360 * L2) - 360
  122. cCirc.Size = 240
  123. Circ.Add cCirc
  124. Color = Color + 1
  125. 'Clipboard.Clear
  126. 'Clipboard.SetText BtnMngrToCode(CommandToCls(Me))
  127. SetColor Picture1.BackColor
  128. End Sub
  129. Private Sub P1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  130. Dim clsCircle As clsCircle
  131. Dim Found As Boolean
  132. For Each clsCircle In Circ
  133. If X > clsCircle.Left And X < clsCircle.Left + clsCircle.Size And Y > clsCircle.Top And (Y < clsCircle.Top + clsCircle.Size) Then
  134. Found = True
  135. End If
  136. If Not Found Then Exit Sub
  137. P1.Cls
  138. For Each clsCircle In Circ
  139. Draw3DCircle P1, clsCircle.Left + 120, clsCircle.Top + 120, 120, clsCircle.Color, True, True
  140. For Each clsCircle In Circ
  141. If X > clsCircle.Left And X < clsCircle.Left + clsCircle.Size And Y > clsCircle.Top And (Y < clsCircle.Top + clsCircle.Size) Then
  142. Picture1.BackColor = clsCircle.Color
  143. DrawMode = 6
  144. DrawCross P1, clsCircle.Left, clsCircle.Top, QBColor(15)
  145. DrawMode = 13
  146. End If
  147. End Sub
  148. Public Sub SetColor(Color As Long)
  149. Dim clsCircle As clsCircle
  150. P1.Cls
  151. For Each clsCircle In Circ
  152. Draw3DCircle P1, clsCircle.Left + 120, clsCircle.Top + 120, 120, clsCircle.Color, True, True
  153. For Each clsCircle In Circ
  154. If clsCircle.Color = Color Then
  155. DrawCross P1, clsCircle.Left, clsCircle.Top, QBColor(15)
  156. End If
  157. End Sub
  158. Private Sub SetColors()
  159. Colors(1) = &HFFFFFF
  160. Colors(2) = &HE0E0E0
  161. Colors(3) = &HC0C0C0
  162. Colors(4) = &H808080
  163. Colors(5) = &H404040
  164. Colors(6) = &HC0C0FF
  165. Colors(7) = &H8080FF
  166. Colors(8) = &HFF&
  167. Colors(9) = &HC0&
  168. Colors(10) = &H80&
  169. Colors(11) = &H40&
  170. Colors(12) = &HC0E0FF
  171. Colors(13) = &H80C0FF
  172. Colors(14) = &H80FF&
  173. Colors(15) = &H40C0&
  174. Colors(16) = &H80C0FF
  175. Colors(17) = &H4080&
  176. Colors(18) = &H404080
  177. Colors(19) = &HC0FFFF
  178. Colors(20) = &H80FFFF
  179. Colors(21) = &HFFFF&
  180. Colors(22) = &HC0C0&
  181. Colors(23) = &H8080&
  182. Colors(24) = &HC0FFC0
  183. Colors(25) = &H80FF80
  184. Colors(26) = &HFF00&
  185. Colors(27) = &HC000&
  186. Colors(28) = &H8000&
  187. Colors(29) = &HFFFFC0
  188. Colors(30) = &HFFFF80
  189. Colors(31) = &HFFFF00
  190. Colors(32) = &HC0C000
  191. Colors(33) = &H808000
  192. Colors(34) = &HFFC0C0
  193. Colors(35) = &HFF8080
  194. Colors(36) = &HFF0000
  195. Colors(37) = &HC00000
  196. Colors(38) = &H800000
  197. Colors(39) = &HFFC0FF
  198. Colors(40) = &HFF80FF
  199. Colors(41) = &HFF00FF
  200. Colors(42) = &HC000C0
  201. Colors(43) = &H800080
  202. Colors(44) = &HC0E0FF
  203. Colors(45) = &H8000000D
  204. Colors(46) = &H8000000E
  205. Colors(47) = &H8000000F
  206. Colors(48) = &H80000010
  207. End Sub
  208.